home *** CD-ROM | disk | FTP | other *** search
/ The Best of MacTutor - S…e Code for Volumes 1 to 5 / The Best of MacTutor - Source Code for Volume 1-5 (Wayzata Technology)(6031)(1990).bin / Source Code / #51 (Dec 89) / LISP sources / listing 04 < prev    next >
Text File  |  1988-10-23  |  343b  |  24 lines
  1. Welcome to Allegro CL Version 1.2!
  2. ? 
  3. TOWEROFHANOI
  4. NIL
  5. EXIST
  6. HANOI
  7. MOVEDISK
  8. MOVETOWER
  9. ADDFIRST
  10. GETANDREMOVEFIRST
  11. ? (setf toh (oneOf towerOfHanoi))
  12. #<Object #252, a TOWEROFHANOI>
  13. ? (ask toh (Hanoi))
  14. Please type the number of disks in the tower: 3
  15. tower of Hanoï for 3 disks.
  16. 1 -> 3 A
  17. 1 -> 2 B
  18. 3 -> 2 A
  19. 1 -> 3 C
  20. 2 -> 1 A
  21. 2 -> 3 B
  22. 1 -> 3 A
  23. NIL
  24. ?